home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_AddPlDir.dopus < prev    next >
Text File  |  1993-10-05  |  370b  |  27 lines
  1. /* EaglePlayer - Lade das angegebene Verzeichnis von Player rein */
  2.  
  3. parse arg playername
  4.  
  5. options results
  6.  
  7. address 'rexx_EP'
  8.  
  9. status g num
  10. num1=result
  11.  
  12. addpldir playername
  13.  
  14. status g num
  15. num2=result
  16.  
  17. num1=num2-num1
  18.  
  19. if num1=0 then do
  20.     address 'DOPUS.1'
  21.     toptext 'No Player added !'
  22. end
  23. else do
  24.     address 'DOPUS.1'
  25.     toptext 'Eagleplayer: '||num1||' Player(s) added !'
  26. end
  27.